﻿Public Class CPhieuTraDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property


    Private m_MaDocGia As Integer
    Public Property MaDocGia() As Integer
        Get
            Return m_MaDocGia
        End Get
        Set(ByVal value As Integer)
            m_MaDocGia = value
        End Set
    End Property


    Private m_dateNgayTra As DateTime
    Public Property NgayTra() As DateTime
        Get
            Return m_dateNgayTra
        End Get
        Set(ByVal value As DateTime)
            m_dateNgayTra = value
        End Set
    End Property


    Private m_iTienPhatKyNay As Integer
    Public Property TienPhatKyNay() As Integer
        Get
            Return m_iTienPhatKyNay
        End Get
        Set(ByVal value As Integer)
            m_iTienPhatKyNay = value
        End Set
    End Property


    Private m_iTienNo As Integer
    Public Property TienNo() As Integer
        Get
            Return m_iTienNo
        End Get
        Set(ByVal value As Integer)
            m_iTienNo = value
        End Set
    End Property


    Private m_iTongNo As Integer
    Public Property TongNo() As Integer
        Get
            Return m_iTongNo
        End Get
        Set(ByVal value As Integer)
            m_iTongNo = value
        End Set
    End Property


    Public Sub New()

    End Sub

    Public Sub New(ByVal reader As IDataReader)
        m_iMa = reader("Ma")
        m_dateNgayTra = reader("NgayTra")
        m_iTienNo = reader("TienNo")
        m_iTienPhatKyNay = reader("TienPhatKyNay")
        m_MaDocGia = reader("MaDocGia")
    End Sub
End Class
